inherited fmAddEditSkladDoc: TfmAddEditSkladDoc
  Left = 389
  Top = 78
  Width = 1036
  Height = 805
  Caption = #1060#1086#1088#1084#1072#1083#1080#1079#1072#1094#1080#1103' '#1089#1082#1083#1072#1076#1089#1082#1086#1081' '#1088#1072#1089#1087#1080#1089#1082#1080
  Constraints.MinHeight = 805
  Constraints.MinWidth = 1036
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 744
    Width = 1028
  end
  inherited Panel1: TPanel
    Width = 1028
    inherited BitBtn1: TBitBtn
      Left = 858
    end
    inherited BitBtn2: TBitBtn
      Left = 946
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 45
    Width = 1028
    Height = 220
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 6
      Top = 0
      Width = 32
      Height = 13
      Caption = #1044#1072#1090#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 176
      Top = -1
      Width = 93
      Height = 13
      Caption = #1048#1089#1090#1086#1095#1085#1080#1082' '#1090#1086#1074#1072#1088#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 832
      Top = 199
      Width = 190
      Height = 13
      Caption = '* - '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1077' '#1082' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1102' '#1087#1086#1083#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 176
      Top = 55
      Width = 97
      Height = 13
      Caption = #1055#1088#1080#1077#1084#1097#1080#1082' '#1090#1086#1074#1072#1088#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 176
      Top = 111
      Width = 73
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object eSDATE: TcxDBDateEdit
      Left = 6
      Top = 18
      DataBinding.DataField = 'SDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = True
      Style.TextStyle = []
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 0
      Width = 151
    end
    object lcbPPID: TcxDBLookupComboBox
      Left = 176
      Top = 16
      DataBinding.DataField = 'PPID'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PPID'
      Properties.ListColumns = <
        item
          Width = 150
          FieldName = 'PP'
        end
        item
          Width = 150
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsPPID
      Properties.OnCloseUp = lcbPPIDPropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 1
      OnMouseDown = lcbPPIDMouseDown
      Width = 809
    end
    object lcbPPID_TO: TcxDBLookupComboBox
      Left = 176
      Top = 72
      DataBinding.DataField = 'PPID_TO'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PPID'
      Properties.ListColumns = <
        item
          Width = 150
          FieldName = 'PP'
        end
        item
          Width = 150
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsPPID_TO
      Properties.OnCloseUp = lcbPPID_TOPropertiesCloseUp
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 2
      OnMouseDown = lcbPPIDMouseDown
      Width = 809
    end
    object cxDBMemo1: TcxDBMemo
      Left = 176
      Top = 128
      DataBinding.DataField = 'SNOTE'
      DataBinding.DataSource = dlgDS
      Style.LookAndFeel.SkinName = 'Office2007Silver'
      Style.Shadow = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Silver'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Silver'
      StyleHot.LookAndFeel.SkinName = 'Office2007Silver'
      TabOrder = 3
      Height = 65
      Width = 809
    end
  end
  object dbgSkladtovar: TcxGrid [3]
    Left = 0
    Top = 291
    Width = 561
    Height = 453
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    LookAndFeel.SkinName = 'Office2007Silver'
    object tvSkladtovar: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellDblClick = tvSkladtovarCellDblClick
      DataController.DataSource = dsSkladTovar
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'RPSSUMMA'
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 3
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvSkladtovarSTID: TcxGridDBColumn
        DataBinding.FieldName = 'STID'
        Width = 20
      end
      object tvSkladtovarSKLADID: TcxGridDBColumn
        DataBinding.FieldName = 'SKLADID'
        Width = 28
      end
      object tvSkladtovarSDID_ED_IZM: TcxGridDBColumn
        DataBinding.FieldName = 'SDID_ED_IZM'
        Width = 44
      end
      object tvSkladtovarSTSDID_TYPE: TcxGridDBColumn
        DataBinding.FieldName = 'STSDID_TYPE'
        Width = 42
      end
      object tvSkladtovarVESORV: TcxGridDBColumn
        DataBinding.FieldName = 'VESORV'
        Width = 25
      end
      object tvSkladtovarSTKOL: TcxGridDBColumn
        DataBinding.FieldName = 'STKOL'
        Width = 22
      end
      object tvSkladtovarSTNOTE: TcxGridDBColumn
        DataBinding.FieldName = 'STNOTE'
        Width = 27
      end
      object tvSkladtovarSTUSERENTER: TcxGridDBColumn
        DataBinding.FieldName = 'STUSERENTER'
        Width = 45
      end
      object tvSkladtovarSTTIMEENTER: TcxGridDBColumn
        DataBinding.FieldName = 'STTIMEENTER'
        Width = 43
      end
      object tvSkladtovarSTUSEREDIT: TcxGridDBColumn
        DataBinding.FieldName = 'STUSEREDIT'
        Width = 41
      end
      object tvSkladtovarSTTIMEEDIT: TcxGridDBColumn
        DataBinding.FieldName = 'STTIMEEDIT'
        Width = 39
      end
      object tvSkladtovarSTISDELETE: TcxGridDBColumn
        DataBinding.FieldName = 'STISDELETE'
        Width = 42
      end
      object tvSkladtovarED_IZM: TcxGridDBColumn
        DataBinding.FieldName = 'ED_IZM'
        Width = 31
      end
      object tvSkladtovarSTSDIDTOVAR: TcxGridDBColumn
        DataBinding.FieldName = 'STSDIDTOVAR'
        Width = 56
      end
      object tvSkladtovarTOVAR: TcxGridDBColumn
        DataBinding.FieldName = 'TOVAR'
        Width = 33
      end
      object tvSkladtovarSDATEPROIZV: TcxGridDBColumn
        DataBinding.FieldName = 'SDATEPROIZV'
        Width = 62
      end
      object tvSkladtovarSDATEGODEN: TcxGridDBColumn
        DataBinding.FieldName = 'SDATEGODEN'
        Width = 72
      end
    end
    object dbgSkladtovarLevel1: TcxGridLevel
      GridView = tvSkladtovar
    end
  end
  object Panel2: TPanel [4]
    Left = 569
    Top = 291
    Width = 459
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 4
    object PdfViewer1: TPdfViewer
      Left = 0
      Top = 25
      Width = 459
      Height = 428
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = True
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = False
      ShrinkToMargins = True
      StartPage = 1
    end
    object cxButton1: TcxButton
      Left = 0
      Top = 0
      Width = 459
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1047#1072#1084#1077#1085#1080#1090#1100' '#1082#1086#1087#1080#1102' '#1080#1079' '#1093#1088#1072#1085#1080#1083#1080#1097#1072
      TabOrder = 1
      OnClick = cxButton1Click
      Align = alTop
      LookAndFeel.SkinName = 'Office2007Silver'
    end
  end
  object dxBarDockControl1: TdxBarDockControl [5]
    Left = 0
    Top = 265
    Width = 1028
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object cxSplitter1: TcxSplitter [6]
    Left = 561
    Top = 291
    Width = 8
    Height = 453
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = dbgSkladtovar
  end
  object dsSkladTovar: TDataSource
    Left = 72
    Top = 192
  end
  object qPPID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID, PP.PPID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      
        'INNER JOIN PERSON_PODOTCH PP ON PP.PP_ID = d.PID AND PP.PPTYPE =' +
        ' 4'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID, NULL AS PP'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 352
    Top = 29
    object qPPIDPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPIDPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPIDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPIDSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qPPIDPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
  object dsPPID: TDataSource
    DataSet = qPPID
    Left = 320
    Top = 29
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = 'Office2007Silver'
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 392
    Top = 343
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 551
      FloatTop = 183
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbadd'
        end
        item
          Visible = True
          ItemName = 'bbedit'
        end
        item
          Visible = True
          ItemName = 'bbdel'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbaddClick
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbeditClick
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbdelClick
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
  end
  object dsPPID_TO: TDataSource
    DataSet = qPPID_TO
    Left = 520
    Top = 29
  end
  object qPPID_TO: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID, PP.PPID'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST d ON d.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d.SDID'
      
        'INNER JOIN PERSON_PODOTCH PP ON PP.PP_ID = d.PID AND PP.PPTYPE =' +
        ' 4'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID, NULL AS PP'
      'FROM PEOPLE P'
      'ORDER BY 2')
    GeneratorField.Field = 'RPID'
    Left = 560
    Top = 29
    object qPPID_TOPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qPPID_TOPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPPID_TOSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPPID_TOSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qPPID_TOPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"PERSON_PODOTCH"."PPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
end
